home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / ZEXIT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-12-04  |  1018 b   |  44 lines
  1. 10  'ZEXIT - Acknowledgements & return to DOS - 01 FEB 96 rev. 04 DEC 96
  2. 20  CLS:KEY OFF
  3. 30  COLOR 15,1,7
  4. 40  VIEW PRINT 1 TO 24:CLS:VIEW PRINT:LOCATE 1
  5. 50  DIM A$(40)
  6. 60  '
  7. 70   '.....load file
  8. 80   OPEN"I",1,"\data\docfiles\acknow.fil"
  9. 90   N=0
  10. 100   IF EOF(1)THEN 130
  11. 110   N=N+1:INPUT#1,A$(N)
  12. 120   GOTO 100
  13. 130   CLOSE
  14. 140  '
  15. 150  T$=STRING$(6,32)
  16. 160  PRINT
  17. 170  PRINT T$;
  18. 180  PRINT "HAMCALC could never have been what and where it is without the"
  19. 190  PRINT T$;
  20. 200  PRINT "encouragement and input in terms of friendship, time and expertise"
  21. 210  PRINT T$;
  22. 220  PRINT "from many people worldwide, especially"
  23. 230  PRINT
  24. 240  '
  25. 250  '.....print file
  26. 260  K=CINT(N/2)
  27. 270  FOR Z=1 TO K
  28. 280  PRINT TAB(2)A$(Z);TAB(42)A$(Z+K)
  29. 290  NEXT Z
  30. 300  '
  31. 310  PRINT
  32. 320  PRINT T$;
  33. 330  PRINT "and most especially my wonderful wife Anne, who has forgiven me for"
  34. 340  PRINT T$;
  35. 350  PRINT "letting HAMCALC turn what started out to be a part-time retirement"
  36. 360  PRINT T$;
  37. 370  PRINT "project into a most pleasurable (and almost full-time) occupation."
  38. 380  '
  39. 390  LOCATE 25,20:COLOR 14,4
  40. 400  PRINT " 73 de VE3ERP....Press any key to EXIT....";
  41. 410  IF INKEY$=""THEN 410
  42. 420  COLOR 7,0,0
  43. 430  CLS:SYSTEM
  44.